***SMAP replication


***** Generating weights

***demographic weight

ebalance ess i.age_groups female i.education_groups urban i.nuts, basewt(pspwght)

rename _webal weight


***** Generate labels

label variable age "Age"
label variable age_groups "Age groups"
label variable female "Female"
label variable interest "Political interest"
label variable conspiracy "Conspiracy beliefs (general)"
label variable consp_covid "Conspiracy beliefs (COVID-19)"
label variable consp_scient "Conspiracy beliefs (scientists)"
label variable leftright "Left-right self-placement"
label variable income "Subjective income"
label variable education "Education"
label variable trust_polit "Trust politicians"
label variable trust_scient "Trust scientists"
label variable health "Subjective health"
label variable nuts "NUTS1 region"

label define age 1 "17-24" 2 "25-39" 3 "40-54" 4 "55-64" 5 "65+"
label define urban 0 "Rural" 1 "Urban"
label define nuts 1 "Attica" 2 "North" 3 "South-Central" 4 "Aegean-Crete"
label define education 1 "Primary" 2 "Lower secondary" 3 "Secondary-vocational" 4 "University" 5 "Postgraduate"
label define likert 1 "Completely disagree" 2 "Disagree" 3 "Neither nor" 4 "Agree" 5 "Completely agree"
label define income 1 "Comfortable" 2 "Coping" 3 "Difficult" 4 "Very difficult"
label define gender 1 "Female" 0 "Male"
label define interest 1 "Not at all" 2 "Hardly" 3 "Quite" 4 "Very"

label values education education
label values  age_groups age
label values  urban urban
label values  nuts nuts
label values  income income
label values  interest interest
label values female gender
label values conspiracy likert
label values consp_covid likert
label values consp_scient likert


***** Analysis

*** Distributions

twoway (hist age_groups if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist age_groups if ess==0, discret percent bfcolor(none) blcolor(blue) legend(off))

twoway (hist female if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist female if ess==0, discret percent bfcolor(none) blcolor(blue) xtitle(Gender) legend(off))

twoway (hist education if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist education if ess==0, discret percent bfcolor(none) blcolor(blue) xtitle(Education) legend(off))

twoway (hist income if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist income if ess==0, discret percent bfcolor(none) blcolor(blue) xtitle(Subjective income) legend(order(1 "ESS" 2 "Facebook") pos(2) ring(0) col(2)))

twoway (hist interest if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist interest if ess==0, discret percent bfcolor(none) blcolor(blue) xtitle(Political interest) legend(off))

twoway (hist trust_scient if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist trust_scient if ess==0, discret percent bfcolor(none) blcolor(blue) xtitle(Trust in scientists) legend(off))

twoway (hist leftright if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist leftright if ess==0, discret percent bfcolor(none) blcolor(blue) xtitle(Left-Right self-placement) legend(off))

twoway (hist conspiracy if ess==1, discret percent bfcolor(none) blcolor(pink)) (hist conspiracy if ess==0, discret percent bfcolor(none) blcolor(blue) xtitle(Conspiracy beliefs (general)) legend(off))

*** Regression

reg conspiracy age female education income interest leftright trust_polit [pweight=pspwght] if ess==1

estimates store conspiracy_ess

reg conspiracy age female education income interest leftright trust_polit [pweight=weight] if ess==0

estimates store conspiracy_fb1

coefplot conspiracy_ess conspiracy_fb1, drop(_cons) xline(0, lcolor(gs12)) msymbol(plus) xlabel(-0.8(.2)0.6) xtitle(Unstandardized coefficients with 95% confidence intervals) title()


